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l^sxJbbo /xj JjJl> &3> Jk ^ JU0 2-*sl -Joj-juju uGjSLi-ullo [ jS: Ojl+C J3\JI guobjjJI 

jLiicJ j\^> s-/>o j-$]ql>3 Ctrl+T ljJ-c Jog^jo-i i I magel j^^JI 61^1 i jljjl T 
^_9_9l3x> ^iJbJaaJoJ />j Microsoft Common Dialog control 6.0(SP6) 6b\JI ^ 
! Form_Load cjjgeJb v_svj\JI i^SJI y-jj&j L ^xJlc cc^-ljib 


Private Sub Form_Load() 

Form_Resize 
End Sub 

: Form_Resize oj^Jb unAJI 

Private Sub Form_Resize() 

On Error Resume Next 
I magel.Width = Me.Width - 360 
I magel.Fleight = Me.Height - 1180 
End Sub 

: " J 3 \JI jjJJs 

Private Sub CmdOpen_Click() 

On Error Resume Next 
CommonDialogl.CancelError = True 

CommonDialogl.Filter= "All Picture Files|*.bmp;*.jpg;*.gif;*.wmf|" 
Common Dialogl.ShowOpen 

I magel.Picture = LoadPicture(CommonDialogl.FileName) 

End Sub 

: "]clqj> " i_sObJI jjJU3 

Private Sub CmdSave_Click() 

On Error Resume Next 
CommonDialogl.CancelError = True 
CommonDialogl.Filter= "JPG|*.jpg| BMP|*.bmp| Gif | * .gif |" 

Common Dialogl.ShowSave 

SavePicture Imagel.Picture, CommonDialogl.FileName 
End Sub 










! ^sJLjLo ci—JLc £.3^^*—° 5^—91 ■ c >—^ jul!I CLSjJloJ QjoLJjJ 

Lo J_S q^jj-oj /x 93 Commandl >ol jj < Labell uI^jlc 6 bt < Textl ^ 

\ Form_Load i_s \3 i_svj\JI .^z^JI J 93 Ju ^3 ul^iaJI 6 bl cucpej 

Private Sub Form_Load() 

Commandl.Enabled = False 
End Sub 

: Textl_Change ojcJL unAJI ^> 35 Jl 3 

Private Sub Textl_Change() 

Commandl.Enabled = True 

If Val(Textl) = 0 Then Commandl.Enabled = False: Labell = "" 

End Sub 


: Textl_Keypress(KeyAscii As Integer) oj^JI ^ usoUl ^ 3^13 

Private Sub Textl_KeyPress(KeyAscii As Integer) 

If KeyAscii > Asc("9") Or KeyAscii < Asc("0") Then 
KeyAscii = 0 
End If 
End Sub 

: jjJU v_svJ\i I ^35JI3 


Private Sub Commandl_Click() 

If Val(Textl) > 0 And Val(Textl) <= 25 Then 
Labell = 11 

Elself Val(Textl) > 25 And Val(Textl) <= 50 Then 
Labell = 

Elself Val(Textl) > 50 And Val(Textl) <= 75 Then 
Label 1 = "^ 3 " 

Elself Val(Textl) > 75 And Val(Textl) <= 100 Then 

Labell = "jlW 

Elself Val(Textl) > 100 Then 

Labell = " \ * * ,jjo L 3 Clcl LcxSj \J" 

End If 
End Sub 











! ^_sJjLo ci—JLc. g-j-03 JljJc* _«jjLs £_3j_*iLjo 2jiSl .bjjjoJU Wjlmxj ilSjls yj£- OjLtC 

Ctrl + T ..iJL: Joa^bl , "&L9" ^jJJ Caption q^obdl Commandl jua\ jj 
Microsoft Common Dialog control 6.0(SP6) 6b\JI cl^ >l>I 

.Labell uI^JlC olil £^03 i />j 9 -qJI ljCLc Lp^Jo 3 
' : "e^" ,>JI ^ 


Private Sub Commandl_Click() 

On Error GoTo err: 

CommonDialogl.CancelError = True 

CommonDialogl.Filter = "All Media Types(*.mp3;*.wav)|*.mp3;*.wav|" 

CommonDialogl.ShowOpen 

MMControll.Command = "stop" 

MMControll.FileName = CommonDialogl.FileName 
Labell = CommonDialogl.FileName 
MMControll.Command = "open" 

MMControll.Command = "play" 
err: 

MMControll.FileName = "" 

End Sub 










